home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / lst.roads'main < prev    next >
Text File  |  2007-02-28  |  564b  |  23 lines
  1. 0010 ╨╥╔╬╘ ├╚╥$(147),├╚╥$(14),
  2. 0020 ╨╥╔╬╘ "├ONVERSION OF A NUMBER."
  3. 0030 ─╔═ RES$ ╧╞ 80 // ╘HIS STRING WILL
  4. 0040 // CONTAIN THE RESULT OF THE CONVERSION
  5. 0050 FLAG:=╘╥╒┼ // ╞LAG TO RECOGNIZE
  6. 0060 // INCORRECT INPUT
  7. 0070 ╥┼╨┼┴╘ 
  8. 0080   ╨╥╔╬╘ 
  9. 0090   ╔╞ FLAG=╞┴╠╙┼ ╘╚┼╬
  10. 0100     ╨╥╔╬╘ "┼RROR! ┴GAIN"
  11. 0110   ┼╬─╔╞ 
  12. 0120   ╔╬╨╒╘ "╬UMBER ?": NUMBER
  13. 0130   ╔╬╨╒╘ "╔N ┬ASE ?": BASE#
  14. 0140   FLAG:=╞┴╠╙┼
  15. 0150 ╒╬╘╔╠ BASE#>1 ┴╬─ BASE#<37
  16. 0160 ╔╞ NUMBER<0 ╘╚┼╬
  17. 0170   NUMBER:=┴┬╙(NUMBER)
  18. 0180   RES$:="-"
  19. 0190 ┼╬─╔╞ 
  20. 0200 CONVERT(NUMBER,BASE#,RES$)
  21. 0210 ╨╥╔╬╘ 
  22. 0220 ╨╥╔╬╘ RES$
  23.